home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Online / CallMan / ARexx / CallMan-Export.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-02-23  |  1.9 KB  |  72 lines
  1. /*
  2. ** $VER: CallMan-Export.rexx 1.0 (23.02.98)
  3. **
  4. ** Exports the CallMan database into an ASCII file.
  5. ** Requires "rexxreqtools.library" !
  6. */
  7.  
  8. ADDRESS 'CALLMAN'
  9.  
  10. OPTIONS RESULTS
  11.  
  12. IF ~SHOW(LIBRARIES,'rexxsupport.library') THEN DO
  13.     IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN DO
  14.         EXIT 10
  15.     END
  16. END
  17.  
  18. IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN DO
  19.     IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN DO
  20.         EXIT 10
  21.     END
  22. END
  23.  
  24.  
  25. IF ~SHOW(PORTS,'CALLMAN') THEN DO
  26.     SAY 'Bitte erst CallMan starten!'
  27.     EXIT
  28. END
  29.  
  30. NL = "0a"x
  31.  
  32. NUMBEROFENTRIES
  33. numofentries = RESULT
  34.  
  35. IF numofentries = 0 THEN DO
  36.     CALL rtezrequest("No database entries found!", "OK")
  37. END
  38.  
  39. filename = rtfilerequest("", "", "Choose the export file", "Export", 'rtfi_flags=freqf_save', )
  40.  
  41. IF ~OPEN(Exportfile, filename, "W") THEN DO
  42.     SAY "Kann die Datei nicht öffnen!"
  43.     CALL rtezrequest("Can't open file!", "OK")
  44.     EXIT
  45. END
  46.  
  47. DO x = 1 to numofentries
  48.     GETENTRY x ENTRY
  49.     Line = WriteLn(Exportfile, ENTRY.NAME || NL ||,
  50.                                ENTRY.SURNAME || NL ||,
  51.                                ENTRY.STREET || NL ||,
  52.                                ENTRY.AREACODE || NL ||,
  53.                                ENTRY.CITY || NL ||,
  54.                                ENTRY.COUNTRY || NL ||,
  55.                                ENTRY.BIRTHDAY || NL ||,
  56.                                ENTRY.PROFESSION || NL ||,
  57.                                ENTRY.PHONENUMBERS || NL ||,
  58.                                ENTRY.EMAILS || NL ||,
  59.                                ENTRY.NOTES || NL ||,
  60.                                ENTRY.NAMEOFBANK || NL ||,
  61.                                ENTRY.BANKCODE || NL ||,
  62.                                ENTRY.BANKACCOUNT || NL ||,
  63.                                ENTRY.CONSULTANT || NL ||,
  64.                                ENTRY.CUSTOMERACCOUNT,
  65.                                )
  66. END
  67.  
  68. CALL CLOSE(Exportfile)
  69.  
  70.  
  71. EXIT
  72.